home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
VRS502.ZIP
/
VERIFY.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-04-06
|
6KB
|
159 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
StartDisp 1
Cls
Newlines 3
If (Crc32(1, PPEPath() + "VRS-M1.PPE") <> 2.41945e+09) Goto LABEL001
PrintLn "VRS-M1.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M2.PPE") <> 1819515186) Goto LABEL001
PrintLn "VRS-M2.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M3.PPE") <> 1284190654) Goto LABEL001
PrintLn "VRS-M3.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M4.PPE") <> 3.02516e+09) Goto LABEL001
PrintLn "VRS-M4.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M5.PPE") <> 2108539021) Goto LABEL001
PrintLn "VRS-M5.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M6.PPE") <> 650450250) Goto LABEL001
PrintLn "VRS-M6.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M7.PPE") <> 3.19634e+09) Goto LABEL001
PrintLn "VRS-M7.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M9.PPE") <> 554809824) Goto LABEL001
PrintLn "VRS-M9.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M10.PPE") <> 3.08792e+09) Goto LABEL001
PrintLn "VRS-M10.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M11.PPE") <> 396983730) Goto LABEL001
PrintLn "VRS-M11.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M12.PPE") <> 1034340176) Goto LABEL001
PrintLn "VRS-M12.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M13.PPE") <> 3.5032e+09) Goto LABEL001
PrintLn "VRS-M13.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M14.PPE") <> 714742503) Goto LABEL001
PrintLn "VRS-M14.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M15.PPE") <> 94957602) Goto LABEL001
PrintLn "VRS-M15.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M16.PPE") <> 2.84344e+09) Goto LABEL001
PrintLn "VRS-M16.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M19.PPE") <> 1261034303) Goto LABEL001
PrintLn "VRS-M19.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M80.PPE") <> 3.01596e+09) Goto LABEL001
PrintLn "VRS-M80.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M81.PPE") <> 4.17935e+09) Goto LABEL001
PrintLn "VRS-M81.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M98.PPE") <> 4.09162e+09) Goto LABEL001
PrintLn "VRS-M98.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M99.PPE") <> 1388320564) Goto LABEL001
PrintLn "VRS-M99.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M100.PPE") <> 3.8694e+09) Goto LABEL001
PrintLn "VRS-M100.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M200.PPE") <> 313094704) Goto LABEL001
PrintLn "VRS-M200.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M300.PPE") <> 1832644237) Goto LABEL001
PrintLn "VRS-M300.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M400.PPE") <> 707939413) Goto LABEL001
PrintLn "VRS-M400.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M401.PPE") <> 2.78084e+09) Goto LABEL001
PrintLn "VRS-M401.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M402.PPE") <> 1756550915) Goto LABEL001
PrintLn "VRS-M402.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M450.PPE") <> 2.50706e+09) Goto LABEL001
PrintLn "VRS-M450.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M451.PPE") <> 3.05384e+09) Goto LABEL001
PrintLn "VRS-M451.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M452.PPE") <> 1821227619) Goto LABEL001
PrintLn "VRS-M452.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M453.PPE") <> 1001081254) Goto LABEL001
PrintLn "VRS-M453.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M800.PPE") <> 877272763) Goto LABEL001
PrintLn "VRS-M800.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M801.PPE") <> 3.1032e+09) Goto LABEL001
PrintLn "VRS-M801.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M802.PPE") <> 507239703) Goto LABEL001
PrintLn "VRS-M802.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M991.PPE") <> 2.43493e+09) Goto LABEL001
PrintLn "VRS-M991.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS-M999.PPE") <> 67037335) Goto LABEL001
PrintLn "VRS-M999.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRS.PPE") <> 634742715) Goto LABEL001
PrintLn "VRS.PPE VERIFIED!"
If (Crc32(1, PPEPath() + "VRSORT.COM") <> 1373518623) Goto LABEL001
PrintLn "VRSORT.COM VERIFIED!"
If (Crc32(1, PPEPath() + "ARMOR.VRS") <> 1669215811) Goto LABEL001
PrintLn "ARMOR.VRS VERIFIED!"
If (Crc32(1, PPEPath() + "MUTANT.VRS") <> 1305385406) Goto LABEL001
PrintLn "MUTANT.VRS VERIFIED!"
If (Crc32(1, PPEPath() + "USER.VRS") <> 4.00045e+09) Goto LABEL001
PrintLn "USER.VRS VERIFIED!"
If (Crc32(1, PPEPath() + "WEAPONS.VRS") <> 2.44444e+09) Goto LABEL001
PrintLn "WEAPONS.VRS VERIFIED!"
Newlines 3
PrintLn "VRS FILES VERIFIED!"
Wait
Goto LABEL002
:LABEL001
Newlines 2
PrintLn " FAILED CRC CHECKING!"
Wait
:LABEL002
FCloseAll
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 2 Wait
; 43 Goto
; 43 PrintLn
; 41 If
; 1 StartDisp
; 3 Newlines
; 1 FCloseAll
;
;
; ■ Functions used :
;
; 41 +
; 41 <>
; 41 PPEPath()
; 41 Crc32()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------